﻿Public Class FormMesWorkReportAdd
    Public gt_sys_id As String
    Dim objGjbInfo As New clsGJBinfo
    Private Sub FormMesWorkReportAdd_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        setDgvData()
    End Sub

    Private Sub setDgvData()
        Dim dt As DataTable = objGjbInfo.getListByGtSysId(gt_sys_id)
        dgv.AutoGenerateColumns = False
        dgv.DataSource = dt
    End Sub
End Class